;; test
(import (scheme) (test) (duck) )

(add-test-print "test prim"
  [(+ 1 (+ 1 2) ) 4]
  [(+ 1 2) 3]
  [(= 2 2) #t]
  [(begin (> 1 2)
        (< 1 2)
        (>= 1 2)
        (<= 1 2)
        (= 1 2)
        (= 2 2)
        )
  #t ]
  [(- 1200000 11111) 1188889]
  [(+ 1 2 3) 6]
  [(+ 1 2 3 4) 10]
  [(- 1 1) 0]
  [(- 2 3) -1]
  [(begin
    (+ 1 2 3)
    (- 2 3)
    (> 1 3)
    (- 2 3)
    )
    -1
  ]
  [(- (+ 10 5) (- 2 3) ) 16]
  [(print-value 11) 11]

  ;;test erro
  ; [(/ 3 4) 0]
  ; [(* 3 4) 12]
  ; [(/ 12 4) 3]
  
  [(printc "%d" 11) 11]
  ; [(printc "ret=%d" (- (+ 10 5) (- 2 3) )) 16]

  )

(test-all)
